!----------------------------egs5_epcont.f------------------------------
! Version: 051219-1435
!-----------------------------------------------------------------------
!23456789|123456789|123456789|123456789|123456789|123456789|123456789|12

      common/EPCONT/                 
     * edep,                                          
     * tstep,                             
     * ustep,        
     * tvstep,                
     * rhof,                      
     * eold,          
     * enew,            
     * eke,                         
     * elke,                                  
     * beta2,           
     * gle,                         
     * idisc,        
     * irold,                                 
     * irnew,                                     
     * iausfl(MXAUS)              

      real*8 edep,tstep,ustep,tvstep,rhof,eold,enew,eke,elke,beta2,gle
      integer idisc,irold,irnew,iausfl

!------------------------last line of egs5_epcont.f---------------------
